home *** CD-ROM | disk | FTP | other *** search
- -----------------------------------------------
- - DivxManager -
- - MagicScript Technology -
- - 2002 Alessio "AleTsg" Viti -
- -----------------------------------------------
- - Web : DISCOWEB.COM -
- - Autor : GOTEN -
- - Date : 26/01/2003 -
- - Comments : WORKING -
- -----------------------------------------------
- - Version : 0.1 -
- - Changes : -
- - 0.1 : 26/01/2003 -
- - Initial version -
- - Data: -
- - Movie list -
- - Movie title -
- - Genere -
- - Director -
- - Producer -
- - Studio -
- - Music -
- - Actors list -
- - Runtime -
- - Year -
- - Country -
- - Plot -
- - DVD Region (for discoweb) -
- - Screen ratio -
- - Audio format -
- - MPAA -
- - Cover -
- - -
- -----------------------------------------------
- - Cambios: -
- - 0.1 : 26/01/2003 -
- - Versi≤n inicial -
- - Datos: -
- - Lista peliculas -
- - Titulo original -
- - Genero -
- - Director -
- - Productor -
- - Estudio productor -
- - Musica -
- - Lista de actores -
- - Duraccion -
- - A±o -
- - Pais -
- - Argumento -
- - Region DVD (para discoweb) -
- - Screen ratio DVD -
- - Formato de Audio DVD -
- - Clasificacion -
- - Portada DVD -
- - -
- -----------------------------------------------
-
- #MADEBY#=GOTEN
- #DATEBUILD#=26/01/2003
- #WEBSITE#=DISCOWEB.COM - (ESPANA)
- #NOTE#=Import All Information Available : Movie list,Movie
- title,Director,Actors list,Genere,Runtime,Year,Country,Plot,Cover,Photos
- #SCRIPTQUALITY#=3
-
- #WEBQUERY#=http://www.discoweb.com/es/Movies/scripts/buscar.asp?columna=titulo&palabra=#MOVIE#
-
- - Nunca encontraremos una pßgina correcta -
- - Siempre ofrece lista de pelφculas -
- #RIGHTPAGEFOUND#
- #STARTREADWEB#
- #FINDLINE#=<title>#10# #ONERROR#=*STOP*
- #FIND#=title>#01# #ONERROR#=*STOP*
- #FIND#=cula#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #PUT#=itle>Todas las pelφ#04#
- #CONDITIONRIGHTPAGE# #03#<>#04#
- #ENDRIGHTPAGEFOUND#
-
- #CREATEMOVIELIST#
- - Comprueba si la busqueda ha dado resultados
- #STARTREADWEB#
- #WRITETITLELIST#=Resultados de la busqueda
- #WRITETITLELIST#=-------------------------------
- #FINDLINE#=No existen coincidencias con el criterio especificado#10# #ONERROR#=*OK*
- #PUT#=1#01#
- #IF# #01#==#10#
- #WRITETITLELIST#=No hay coincidencias
- #GOTO#=ENDLISTAPELICULAS
- #ENDIF#
- #STARTREADWEB#
- #FINDLINE#=Soporte/precio#10# #ONERROR#=*OK*
- #PUT#=0#01#
- #IF# #01#==#10#
- #WRITETITLELIST#=Pßgina no vßlida
- #GOTO#=ENDLISTAPELICULAS
- #ENDIF#
- - La busqueda di≤ resultados
- - Vamos a la linea donde hay link
- #REPEAT#
- #FINDLINE#=<a class='ct-linkcontenido' href="info.asp?origen=&ref=#10# #ONERROR#=*OK*
- - Busca referencia
- - Busca inicio de la referencia
- #FIND#="info.asp?origen=&ref=#02# #ONERROR#=*STOP*
- #IF# #01#==#02#
- #GOTO#=ENDLISTAPELICULAS
- #ENDIF#
- - Busca final de la referencia
- #FIND#=">#03# #ONERROR#=*STOP*
- - Coge referencia
- #TAKEWORD#=#05#,#02#,#03#
- - Busca tφtulo
- - Busca inicio del tφtulo
- #FIND#=>#03# #ONERROR#=*STOP*
- - Busca fin del tφtulo
- #FIND#=<#04# #ONERROR#=*STOP*
- - Coge tφtulo
- #TAKEWORD#=#06#,#03#,#04#
- - A±ade tφtulo y enlace
- #WRITETITLELIST#=http://www.discoweb.com/es/Movies/scripts/#05# ---> #06#
- #WHILE# #01#==#01#
- :ENDLISTAPELICULAS
- #ENDCREATEMOVIELIST#
-
- #MOVIETITLE#
- #STARTREADWEB#
- #FINDLINE#=Tφtulo #10##ONERROR#=*STOP*
- #FIND#=Tφtulo #01 #ONERROR#=*STOP*
- #FIND#=<I>#01 #ONERROR#=*STOP*
- #FIND#=>#01# #ONERROR#=*STOP*
- #FIND#=<#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTSUBSTITUTETAGS#
- #TITLE#=#03# #ONERROR#=*ASK*
- #ENDMOVIETITLE#
-
- #DIRECTOR#
- #STARTREADWEB#
- #FINDLINE#=fdirector&palabra#10# #ONERROR#=*STOP*
- #FIND#=fdirector&palabra#01# #ONERROR#=*STOP*
- #FIND#=>#01# #ONERROR#=*STOP*
- #FIND#=<#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTSUBSTITUTETAGS#
- #ADDACTOR#=#03#
- #TAKEDIRECTOR#=#03#
- #ENDDIRECTOR#
-
- #GENRE#
- #STARTREADWEB#
- #FINDLINE#=Estilo #10##ONERROR#=*STOP*
- #FIND#=Estilo #01 #ONERROR#=*STOP*
- #FIND#=ct-txtgen#01 #ONERROR#=*STOP*
- #FIND#=>#01# #ONERROR#=*STOP*
- #FIND#=<#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTSUBSTITUTETAGS#
- #TAKEGENRE#=#03#
- #ENDGENRE#
-
- #RUNTIME#
- #STARTREADWEB#
- #FINDLINE#=Duraci≤n #10##ONERROR#=*STOP*
- #FIND#=Duraci≤n #01 #ONERROR#=*STOP*
- #FIND#=ct-txtgen#01 #ONERROR#=*STOP*
- #FIND#=>#01# #ONERROR#=*STOP*
- #FIND#=<#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTSUBSTITUTETAGS#
- #TAKERUNTIME#=#03#
- #ENDRUNTIME#
-
- #COUNTRY#
- #STARTREADWEB#
- #FINDLINE#=Paφs #10##ONERROR#=*STOP*
- #FIND#=Paφs #01 #ONERROR#=*STOP*
- #FIND#=ct-txtgen#01 #ONERROR#=*STOP*
- #FIND#=>#01# #ONERROR#=*STOP*
- #FIND#=<#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTSUBSTITUTETAGS#
- #TAKECOUNTRY#=#03#
- #ENDCOUNTRY#
-
- #YEAR#
- #STARTREADWEB#
- #FINDLINE#=A±o #10##ONERROR#=*STOP*
- #FIND#=A±o #01 #ONERROR#=*STOP*
- #FIND#=ct-txtgen#01 #ONERROR#=*STOP*
- #FIND#=>#01# #ONERROR#=*STOP*
- #FIND#=<#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTSUBSTITUTETAGS#
- #TAKEYEAR#=#03#
- #ENDYEAR#
-
- #ACTORS#
- #STARTREADWEB#
- #PUT#=0#11#
- #FINDLINE#=IntΘrpretes #10##ONERROR#=*STOP*
- - Vamos a la linea y la posicion de los interpretes
- #FIND#=IntΘrpretes #01##ONERROR#=*STOP*
- - Repetiremos hasta que no queden mas interpretes
- :REPEATACTORS1
- - Cada interprete lleva un palabra= antes
- #FIND#=palabra#01##ONERROR#=*STOP*
- #IF# #11#==#01#
- #GOTO#=ENDACTORS1
- #ENDIF#
- #FIND#==#01##ONERROR#=*STOP*
- #FIND#=">#02##ONERROR#=*STOP*
- - Cogemos nombre del interprete
- #TAKEWORD#=#03#,#01#,#02#
- #TAKEACTOR#=#03#
- #GOTO#=REPEATACTORS1
- :ENDACTORS1
- #ENDACTORS#
-
- #MPAA#
- #STARTREADWEB#
- #FINDLINE#=Certificado #10##ONERROR#=*STOP*
- #FIND#=Certificado #01 #ONERROR#=*STOP*
- #FIND#=ct-txtgen#01 #ONERROR#=*STOP*
- #FIND#=>#01# #ONERROR#=*STOP*
- #FIND#=<#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
- #TAKEMPAA#=#03#
- #ENDMPAA#
-
- #STUDIO#
- #STARTREADWEB#
- #FINDLINE#=Producci≤n de #10##ONERROR#=*STOP*
- #FIND#=Producci≤n de #01 #ONERROR#=*STOP*
- #FIND#=ct-txtgen#01 #ONERROR#=*STOP*
- #FIND#=>#01# #ONERROR#=*STOP*
- #FIND#=<#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
- #TAKESTUDIO#=#03#
- #ENDSTUDIO#
-
- #MUSIC#
- #STARTREADWEB#
- #FINDLINE#=Musica #10##ONERROR#=*STOP*
- #FIND#=Musica #01 #ONERROR#=*STOP*
- #FIND#=ct-txtgen#01 #ONERROR#=*STOP*
- #FIND#=>#01# #ONERROR#=*STOP*
- #FIND#=<#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
- #TAKEMUSIC#=#03#
- #ENDMUSIC#
-
- #PHOTOGRAPHER#
- #STARTREADWEB#
- #FINDLINE#=Fotografφa #10##ONERROR#=*STOP*
- #FIND#=Fotografφa #01 #ONERROR#=*STOP*
- #FIND#=ct-txtgen#01 #ONERROR#=*STOP*
- #FIND#=>#01# #ONERROR#=*STOP*
- #FIND#=<#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
- #TAKEPHOTOGRAPHER#=#03#
- #ENDPHOTOGRAPHER#
-
- #PRODUCER#
- #STARTREADWEB#
- #FINDLINE#=Productor #10##ONERROR#=*STOP*
- #FIND#=Productor #01 #ONERROR#=*STOP*
- #FIND#=ct-txtgen#01 #ONERROR#=*STOP*
- #FIND#=>#01# #ONERROR#=*STOP*
- #FIND#=<#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
- #TAKEPRODUCER#=#03#
- #ENDPRODUCER#
-
- #PLOT#
- #STARTREADWEB#
- #PUT#=1#04#
- - Buscamos la linea donde empieza la sinopsis (son varias lineas)
- #FINDLINE#=Sinopsis#12##ONERROR#=*STOP*
- #FINDLINE#=ct-txtparrafo#01# #ONERROR#=*STOP*
- #FIND#=>#01# #ONERROR#=*STOP*
- :REPITEPLOT
- - La ultima linea acaba con un </TD>, asi que si no
- - lo encuentra devuelve 0 que es toda la linea en un takeword
- #FIND#=</TD>#02# #ONERROR#=*OK*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
- #TAKEPLOT#=#03#
- - Para las demas lineas tenemos que coger la linea entera
- #PUT#=0#04#
- #IF# #02#<>#04#
- -Hemos llegado al final de la sinopsis
- #GOTO#=ENDPLOT1
- #ENDIF#
- #READNEXTLINE#
- #PUT#=0#01#
- #GOTO#=REPITEPLOT
- :ENDPLOT1
- #ENDPLOT#
-
- #POSTER#
- #STARTREADWEB#
- #FINDLINE#=img border=0#10##ONERROR#=*STOP*
- #FIND#=src="#01 #ONERROR#=*STOP*
- #FIND#="#01# ONERROR#=*STOP*
- #FIND#=http#02# #ONERROR#=*STOP*
- #FIND#="#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
- #TAKEPOSTER#=#03#
- #ENDPOSTER#
-
- #AUDIODVD#
- #STARTREADWEB#
- #FINDLINE#=Audio #10##ONERROR#=*STOP*
- #FIND#=Audio #01 #ONERROR#=*STOP*
- #FIND#=ct-txtgen#01 #ONERROR#=*STOP*
- #FIND#=>#01# #ONERROR#=*STOP*
- #FIND#=<#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
- #TAKEAUDIODVD#=#03#
- #ENDAUDIODVD#
-
- #REGION#
- #STARTREADWEB#
- #FINDLINE#=Regi≤n #10##ONERROR#=*STOP*
- #FIND#=Regi≤n #01 #ONERROR#=*STOP*
- #FIND#=ct-txtgen#01 #ONERROR#=*STOP*
- #FIND#=>#01# #ONERROR#=*STOP*
- #FIND#=<#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
- #TAKEREGION#=#03#
- #ENDREGION#
-
- #SCREENDVD#
- #STARTREADWEB#
- #FINDLINE#=Video #10##ONERROR#=*STOP*
- #FIND#=Video #01 #ONERROR#=*STOP*
- #FIND#=ct-txtgen#01 #ONERROR#=*STOP*
- #FIND#=>#01# #ONERROR#=*STOP*
- #FIND#=<#02# #ONERROR#=*STOP*
- #TAKEWORD#=#03#,#01#,#02#
- #CHECKVARIABLE#=#03#
- #STARTDELETETAGS#
- #STARTSUBSTITUTETAGS#
- #TAKESCREENDVD#=#03#
- #ENDSCREENDVD#
-
- #DELETETAGS#
- #DELETEWORD#=
- #DELETEWORD#=<BR>
- #DELETEWORD#=<B>
- #DELETEWORD#=</B>
- #DELETEWORD#=</BR>
- #DELETEWORD#=</P>
- #DELETEWORD#=</BLOCKQUOTE>
- #DELETEWORD#=</TD>
- #DELETEWORD#=</TR>
- #DELETEWORD#=</TABLE>
- #DELETEWORD#=</A>
- #DELETEWORD#=<P ALIGN="justify">
- #ENDDELETETAGS#
-
- #SUBSTITUTETAGS#
- #SUBSTITUTEWORD#= =
- #SUBSTITUTEWORD#=¡=í
- #SUBSTITUTEWORD#=¢=ó
- #SUBSTITUTEWORD#=£=ú
- #SUBSTITUTEWORD#=¤=ñ
- #SUBSTITUTEWORD#=¥=Ñ
- #SUBSTITUTEWORD#=¦=ª
- #SUBSTITUTEWORD#=§=º
- #SUBSTITUTEWORD#=¨=¿
- #SUBSTITUTEWORD#=©=⌐
- #SUBSTITUTEWORD#=ª=¬
- #SUBSTITUTEWORD#=«=½
- #SUBSTITUTEWORD#=¬=¼
- #SUBSTITUTEWORD#==¡
- #SUBSTITUTEWORD#=®=«
- #SUBSTITUTEWORD#=¯=»
- #SUBSTITUTEWORD#=°=░
- #SUBSTITUTEWORD#=±=▒
- #SUBSTITUTEWORD#=²=▓
- #SUBSTITUTEWORD#=³=│
- #SUBSTITUTEWORD#=´=┤
- #SUBSTITUTEWORD#=µ=╡
- #SUBSTITUTEWORD#=¶=╢
- #SUBSTITUTEWORD#=·=╖
- #SUBSTITUTEWORD#=¸=╕
- #SUBSTITUTEWORD#=¹=╣
- #SUBSTITUTEWORD#=º=║
- #SUBSTITUTEWORD#=»=╗
- #SUBSTITUTEWORD#=¼=╝
- #SUBSTITUTEWORD#=½=╜
- #SUBSTITUTEWORD#=¾=╛
- #SUBSTITUTEWORD#=¿=┐
- #SUBSTITUTEWORD#=À=└
- #SUBSTITUTEWORD#=Á=┴
- #SUBSTITUTEWORD#=Â=┬
- #SUBSTITUTEWORD#=Ã=├
- #SUBSTITUTEWORD#=Ä=─
- #SUBSTITUTEWORD#=Å=┼
- #SUBSTITUTEWORD#=Æ=╞
- #SUBSTITUTEWORD#=Ç=╟
- #SUBSTITUTEWORD#=È=╚
- #SUBSTITUTEWORD#=É=╔
- #SUBSTITUTEWORD#=Ê=╩
- #SUBSTITUTEWORD#=Ë=╦
- #SUBSTITUTEWORD#=Ì=╠
- #SUBSTITUTEWORD#=Í=═
- #SUBSTITUTEWORD#=Î=╬
- #SUBSTITUTEWORD#=Ï=╧
- #SUBSTITUTEWORD#=Ð=╨
- #SUBSTITUTEWORD#=Ñ=╤
- #SUBSTITUTEWORD#=Ò=╥
- #SUBSTITUTEWORD#=Ó=╙
- #SUBSTITUTEWORD#=Ô=╘
- #SUBSTITUTEWORD#=Õ=╒
- #SUBSTITUTEWORD#=Ö=╓
- #SUBSTITUTEWORD#=×=╫
- #SUBSTITUTEWORD#=Ø=╪
- #SUBSTITUTEWORD#=Ù=┘
- #SUBSTITUTEWORD#=Ú=┌
- #SUBSTITUTEWORD#=Û=█
- #SUBSTITUTEWORD#=Ü=▄
- #SUBSTITUTEWORD#=Ý=▌
- #SUBSTITUTEWORD#=Þ=▐
- #SUBSTITUTEWORD#=ß=▀
- #SUBSTITUTEWORD#=à=α
- #SUBSTITUTEWORD#=á=ß
- #SUBSTITUTEWORD#=â=Γ
- #SUBSTITUTEWORD#=ã=π
- #SUBSTITUTEWORD#=ä=Σ
- #SUBSTITUTEWORD#=å=σ
- #SUBSTITUTEWORD#=æ=µ
- #SUBSTITUTEWORD#=ç=τ
- #SUBSTITUTEWORD#=è=Φ
- #SUBSTITUTEWORD#=é=Θ
- #SUBSTITUTEWORD#=ê=Ω
- #SUBSTITUTEWORD#=ë=δ
- #SUBSTITUTEWORD#=ì=∞
- #SUBSTITUTEWORD#=í=φ
- #SUBSTITUTEWORD#=î=ε
- #SUBSTITUTEWORD#=ï=∩
- #SUBSTITUTEWORD#=ð=≡
- #SUBSTITUTEWORD#=ñ=±
- #SUBSTITUTEWORD#=ò=≥
- #SUBSTITUTEWORD#=ó=≤
- #SUBSTITUTEWORD#=ô=⌠
- #SUBSTITUTEWORD#=õ=⌡
- #SUBSTITUTEWORD#=ö=÷
- #SUBSTITUTEWORD#=÷=≈
- #SUBSTITUTEWORD#=ø=°
- #SUBSTITUTEWORD#=ù=∙
- #SUBSTITUTEWORD#=ú=·
- #SUBSTITUTEWORD#=û=√
- #SUBSTITUTEWORD#=ü=ⁿ
- #SUBSTITUTEWORD#=ý=²
- #SUBSTITUTEWORD#=þ=■
- #SUBSTITUTEWORD#=ÿ=
- #SUBSTITUTEWORD#=á=ß
- #SUBSTITUTEWORD#=é=Θ
- #SUBSTITUTEWORD#=í=φ
- #SUBSTITUTEWORD#=ó=≤
- #SUBSTITUTEWORD#=ú=·
- #SUBSTITUTEWORD#=ñ=±
- #SUBSTITUTEWORD#=ü=ⁿ
- #ENDSUBSTITUTETAGS#
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-